home *** CD-ROM | disk | FTP | other *** search
/ Aminet 30 / Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso / Aminet / mus / edit / PlotCMD.lha / plotcmd / preset_fadeout.omed < prev    next >
Text File  |  1999-02-16  |  472b  |  24 lines
  1. /*
  2.     ARexx script for use with PlotCMD
  3.     (PlotCMD is a MUIRexx script for use with OctaMED Soundstudio)
  4.     Read the PlotCMD doc for details
  5. */
  6.  
  7. ADDRESS OCTAMED_REXX
  8. OPTIONS RESULTS
  9.  
  10. ED_GETNUMLINES VAR len
  11. IN_SELECT LAST
  12. IN_SETTYPE SAMPLE
  13. SA_CHANGESIZE SIZE len CLEAR
  14.  
  15. DO i=0 TO len-1
  16.    calcval=2*32767*(1-i/(len-1))-32767    /* calculate value */
  17.    calcval=TRUNC(calcval, 0)        /* remove decimals */
  18.    SA_SETSAMPLE OFFSET i VALUE calcval    /* edit sample */
  19. END
  20.  
  21. SA_REFRESH
  22.  
  23. EXIT
  24.